home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / page_monster / pagemonsterv1.0_3.dms / pagemonsterv1.0_3.adf / SCRIPTS / ED.REXX5b < prev    next >
Text File  |  1978-03-25  |  521b  |  104 lines
  1. /* PAGEMONSTER AREXX HTML EXTRACTION SCRIPT */
  2. call open(place, 'env:Rfilequery')
  3. wher = readln(place)
  4.  
  5.  
  6. PATHNAME = wher
  7. file = wher
  8.  
  9. parse var file ':' temp
  10. if temp="" then temp=x
  11. do forever
  12. parse var temp FileName '/' temp
  13. if temp ="" then break
  14. end
  15. Fname = FileName
  16.  
  17. PATHNAME2 = insert("ram:html/propics/" , FName)
  18. address 'Ed'
  19.  
  20. 'T'
  21.  
  22. 'E' '"LOADREXXFILE"'PATHNAME
  23.  
  24. 'T'
  25.  
  26. 'E' '"SAVEREXXFILE"'PATHNAME2 
  27.  
  28. 'X' 
  29.  
  30. ADDRESS 'AV.REXX'
  31. SETVAR PFNAME FNAME
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.